home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende - 018 - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  48 lines
  1. 5000 poke53280,.:poke53281,. :printchr$(147):forc=6to6:poke646,c
  2. 5010 print" [164][164][164][175][175][175][175][185][185][185][185][162][162][162][162][185][185][185][175][164][164][175][185][185][185][162][162][162][185][185][185][185][175][175][175][175][164][164][164] [144] auf wiedersehen!!![146]":next
  3. 5020 s1=54272:pokes1+24,15:pokes1+13,255:pokes1+11,17:
  4. 5030 forx=0to255step2:
  5. 5050 ifx/4=int(x/4)then reads2:reads3:pokes1+8,s3:pokes1+4,s2+1
  6. 5060 if(x-24)/4<>int((x-24)/4)then5080
  7. 5070 fory=0to1step2:forc=2to5:poke646,c:poke55296+68+(x-24)/7+68*y,c:next:next
  8. 5080 next:
  9. 5090 ifx/4=int(x/4)then reads2:reads3:pokes1+8,s2:pokes1+7,s3:
  10. 5100 fory=0to6step2:poke55296+64+(x1-20)/4+64*y,3:next:
  11. 5105 forl=17to81:pokes1+11,l:
  12. 5110 pokes1+11,32:nextl:poke53248+21,0
  13. 5116 fori=1to2:fort=1to100:poke54296,t*i+3:poke54296,15:poke54273,5+abs(50-t)
  14. 5117 forf=2to15:poke646,f:print" [157]   [157]     [157]   [157]     [157][157][157][157][157][157]";:nextf
  15. 5118 forc=12to0step-.1097:poke54296,i+c+1:poke54296,0:nextc,i
  16. 5119 forf=3to13:poke646,f:poke53270,peek(53270)or23
  17. 5121 print"[145]                                     [146][158]  e n d e !";:next
  18. 5125 forz=1to525:next:pokes1+24,0
  19. 5128 forf=2to15:poke646,f
  20. 5129 print"[147]     [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] "
  21. 5130 print"     [180][180]     [176][174]   [176][174][176][174]         [170][170][170]"
  22. 5131 print"     [180][180]     [194][194] [176][178][179][171][219][219][195][178][178][174]     [170][170][170]"
  23. 5132 print"     [180][180]     [194][194] [194][194][194][194][194][171][189][194] [194]     [170][170][170]"
  24. 5133 print"     [180][180]     [194][194] [194][194][194] [179][194] [194][194][194]     [170][170][170]"
  25. 5134 print"     [180][180]     [194][194] [194][194][194] [194][194][194][194][194][194]     [170][170][170]"
  26. 5135 print"     [180][180]     [194][173][195][179] [194][194][194][194][194][194][194][194]     [170][170][170]"
  27. 5136 print"     [180][180]     [173][195][195][177][195][177][177][177][177][195][177][177][189]     [170][170][170]"
  28. 5137 print"     [180][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170][170]"
  29. 5138 print"     [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][186]":nextf
  30. 5139 forz=1to800:next
  31. 5230 poke53270,11:  sys58253
  32. 5300 data20,24,20,23,20,24,49,29,157,24,20,26,97,19
  33. 5301 data137,21,20,26,157,24,137,21
  34. 5302 data137,19,107,21,157,24,137,21
  35. 5303 data107,19,107,19,103,17,109,16
  36. 5304 data103,17,137,19,237,21,137,19
  37. 5305 data20,26,20,26,157,24,237,21
  38. 5306 data107,19,237,21,157,24,237,21
  39. 5307 data20,26,20,26,157,24,237,21,137,19,157,24
  40. 5308 data20,16,69,29,119,12,107,14
  41. 5309 data119,12,49,29,20,26,20,26
  42. 5310 data137,19,157,24,20,26,20,26
  43. 5311 data219,32,69,29,20,26,20,26,137,19
  44. 5312 data 137,19,69,29,219,32,20,26
  45. 5313 data219,32,69,29,20,26,20,26,137,19
  46. 5314 data19,14,10,12,9,10,7
  47. 5400 poke53270,11:  sys58253
  48.